home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / serial / dcon0.000 / dcon0 / dcon0.96 / ppp-ex.scr < prev    next >
Text File  |  1996-06-20  |  2KB  |  86 lines
  1. #dcon script to dial-in to ISP.  See dcon.doc for a commented version.
  2. let $n="544-4411"
  3. let $u="danny"
  4. let $p="rutabaga"
  5. let $l=/root/.isplog
  6. open com /dev/cua1
  7. set com 38400n81
  8. set senddelay 0.10
  9. let $a=$rpipe("uname -n")
  10. if $a="bill" then let $n="9,"+$n set com 19200n81
  11. let n=0
  12. :reset
  13. inc n
  14. if n>3 goto error
  15. print "\nResetting modem...\n"
  16. waitquiet 5 0.5
  17. if % = -1 goto error
  18. send "ATZ^m"
  19. waitfor 5 "ok"
  20. if % != 0 goto reset
  21. let n=0
  22. :dial
  23. waitquiet 2 0.5
  24. if % = -1 goto error
  25. inc n
  26. let $a=$mid($time(),11,8)
  27. print "\r",$a," Dial attempt #",n
  28. send "ATX4DT"+$n+"^m"
  29. waitfor 50 "connect","busy","no dial tone","no carrier"
  30. if % = 1 print " Busy" sleep 2 print "\b\b\b\b\b     " goto dial
  31. if % = 2 print "\n\nNo dial tone! Check phone line!\n" goto error
  32. if % = -1 send " " sleep 2 goto dial
  33. if % != 0 goto error
  34. get 5 " ^m" $c
  35. let n=0
  36. print "\nConnected :",$c,"\n"
  37. sleep 1
  38. :wake
  39. print "Waiting for Login:...\n"
  40. waitfor 3 "ogin:"
  41. if % = 0 goto gotlogin
  42. print "Sending \^m\n"
  43. send "^m"
  44. inc n
  45. if n < 5 goto wake
  46. print "Could not get login.\n"
  47. goto error
  48. :gotlogin
  49. print "Logging-in...\n"
  50. send $u+"^m"
  51. print "Waiting for Password:\n"
  52. waitfor 10 "word:"
  53. if % != 0 print "Could not get password prompt!\n" goto error
  54. print "Sending password...\n"
  55. send $p+"^m"
  56. print "Waiting for annex prompt...\n"
  57. waitfor 10 "nnex:"
  58. if % != 0 goto error
  59. print "Starting ppp...\n"
  60. send "ppp^m"
  61. fork
  62. if % != 0 goto nonforked
  63. exec "/usr/lib/ppp/pppd lock defaultroute modem "+$dev()+" "+$baud()
  64. :nonforked
  65. let $b=$time()
  66. let d=time()
  67. print "Type ENTER to close connection\n"
  68. print "Connected since ",$b,"\n"
  69. print "Connect ",$c," as ",$u,"\n"
  70. :tloop
  71. let $t=$hms(time()-d)
  72. print "\r",$mid($time(),11,8)," ->  ",$t," "
  73. sleep 1
  74. testkey
  75. if % = 0 goto tloop
  76. system "/usr/lib/ppp/ppp-off"
  77. open file $l
  78. fprint $b," - ",$time()," -> ",$t,"\n"
  79. close file
  80. sleep 1
  81. exit 0
  82. :error
  83. print "\nGot error #",%,"\n"
  84. sleep 2
  85. exit 1
  86.